Sub MACROB38()
Dim i As Integer
Dim col As String
Application.ScreenUpdating = False ' L'écran reste figé
col = "F"
For i = 9 To 20
With Sheets("B38")
If .Cells(i, col) = "" Then
.Cells(i, 6) = Sheets("tablo").Cells(13, 3)
Else
i = i + 1
End If
End With
Next i
End Sub