Macro if

bonjour

je cherche a faire une macro copier avec condition

je souhait copie sur

feuil 1 si la celule b2=5

copie c1 a g12 sur la feuil 2 en b2

ou si feuil 1 la celule b2=6

copie c1 a f12 sur la feuil 2 en b2

pour le moment j'ai fais ce code la : "

Sub copievvaleur()

'

' copievvaleur Macro

'

'

Sheets("données").Select

If Worksheets("données").Range("NEquipes").Value = 6 Then

Range("B48:F53").Select

Application.CutCopyMode = False

selection.Copy

Sheets("equipe").Select

Range("B15").Select

ActiveSheet.Paste

If Worksheets("données").Range("NEquipes").Value = 5 Then

Range("B48:G53").Select

Application.CutCopyMode = False

selection.Copy

Sheets("equipe").Select

Range("B6").Select

ActiveSheet.Paste

End If

End Sub

"

sa bug dés le debut

merci pour vos réponse

Bonjour,

en autant que la plage Sheets("données").Range("NEquipes") contienne bien une valeur de 5 ou 6

à essayer,

Sub copievvaleur()
Set sh1 = Sheets("Feuil1")
Set sh2 = Sheets("Feuil2")

Select Case Sheets("données").Range("NEquipes").Value
  Case 6: sh1.Range("B48:F53").Copy sh2.Range("B15")
  Case 5: sh1.Range("B48:G53").Copy sh2.Range("B6")
  Case Else: Exit Sub
End Select
End Sub

merci je test sa de suite