Sub Macro()

If Sheets("Sheet1").Range("A1").Value = "TOTO" Then

Sheets.Add
With ActiveSheet
Name = "TOTO"
End With

Sheets("Sheet1").Select

End If

If Sheets("Sheet1").Range("A1").Value = "TITI" Then

Sheets("Sheet1").Select
Sheets("Sheet1").Copy Befo=Sheets(2)

End If

End Sub


--
Bearacade


------------------------------------------------------------------------
Bearacade's Profile: http://www.excelforum.com/member.php...o&userid=35016
View this thread: http://www.excelforum.com/showthread...hreadid=549682