Macro avec "range" qui n'oppère pas bien...

Sub Copie()
If Feuil3.ComboBox2 = "Commercial" Then
Rows("120:124").Copy Rows("101:101")
ElseIf Feuil3.ComboBox2 = "Résidentiel" Then
Rows("126:130").Copy Rows("101:101")
ElseIf Feuil3.ComboBox2 = "Recouvrement" Then
Rows("132:136").Copy Rows("101:101")
Else
Feuil3.Range("A88").Select
End If
If Feuil3.ComboBox3 = "COMM" Then
Rows("151:155").Copy Rows("143:143")
ElseIf Feuil3.ComboBox3 = "RÉS" Then
Rows("158:162").Copy Rows("143:143")
ElseIf Feuil3.ComboBox3 = "REC" Then
Rows("165:169").Copy Rows("143:143")
Else
Feuil3.Range("A1").Select
End If
End Sub