If Sheets("BDDVéhicule").Cells(Me.ComboImmatEdition.ListIndex + 2, 18) = "pneu été" Then
.Range("C27") = "oui"
ElseIf Sheets("BDDVéhicule").Cells(Me.ComboImmatEdition.ListIndex + 2, 18) = "pneu hiver" Then
.Range("C28") = "oui"
ElseIf Sheets("BDDVéhicule").Cells(Me.ComboImmatEdition.ListIndex + 2, 18) = "pneu 4 saisons" Then
.Range[B]("C2ç")[/B] = "oui"
End If
le ("C2ç") doit être ("C29").!!!